2 PRINT"[147]SPELLING CRITTER"
15 PRINT"ONE MOMENT PLEASE"
20 POKE36869,255
21 POKE52,28:POKE56,28:CLR
22 FORI=7168TO7679:POKEI,PEEK(I+25600):NEXT
23 FORC=7168TO7175:READA:POKEC,A:NEXT
24 FORC=7664TO7671:READA:POKEC,A:NEXT
25 FORC=7656TO7663:READA:POKEC,A:NEXT
30 DATA96,128,77,63,31,13,0,0
31 DATA3,52,184,240,240,184,52,3
32 DATA0,54,58,242,242,58,54,0
50 DIMW$(50)
60 PRINT"[147]"
61 POKE36878,15
70 PRINT"HI,WHAT IS YOUR"
75 INPUT"NAME";N$
80 GOSUB5000
90 W=0:R=0:Z=0
100 FORB=1TON
120 PRINT"[147]"W$(B)
140 FORT=1TO1000:NEXT
160 PRINT"[147]":A$=""
165 PRINT"  TO REVIEW THE WORD  "
166 PRINT"  TYPE ? AND RETURN   "
180 PRINT"HOW DO YOU SPELL":PRINT
190 INPUT"THAT WORD";A$
195 IFA$=""ORLEN(A$)=0THEN160
200 IFA$="THAT WORD"THENGOSUB6000:GOTO160
210 IFA$="?"ORA$="/"THEN120
220 IFA$=W$(B)THENGOSUB7000:GOTO400
230 GOSUB8000
240 PRINT"[147]I'M SORRY,"N$:PRINT
260 PRINT"THAT IS WRONG":PRINT
270 POKE36874,223
274 FORT=1TO500:NEXT
275 POKE36874,0
280 PRINT"THE CORRECT WAY IS:"
300 PRINT"[144]"W$(B)""
320 W=W+1
340 GOTO450
400 PRINT"THAT IS RIGHT"
420 PRINT"VERY GOOD ";N$
424 M=220
425 FORP=1TO8
427 M=M+3
429 POKE36876,M
430 FORT=1TO25
431 POKE36876,0
432 NEXTP
433 RESTORE
440 R=R+1
450 POKE198,0:PRINT"HIT ANY KEY"
460 GETZ$:IFZ$=""THEN460
480 NEXTB
500 PRINT"[147]YOU HAD "R" RIGHT AND ":PRINT
510 PRINTW" WRONG."
550 PRINT"WOULD YOU LIKE TO":PRINT
560 PRINT"TRY AGAIN (Y/N)?"
580 GETZ$:IFZ$=""OR(Z$<>"Y"ANDZ$<>"N")THEN580
590 IFZ$="Y"THEN80
600 PRINT"[147]IT HAS BEEN VERY NICE":PRINT:PRINT"SPELLING WITH YOU":PRINT
620 PRINTN$"."
640 PRINT"PLEASE COME BACK AGAIN":PRINT
650 PRINT"TO PLAY REAL SOON."
660 PRINT"BYE!"
700 END
5000 REM INPUT
5050 PRINT"[147]HOW MANY WORDS DO WE"
5060 INPUT"HAVE TODAY";Z$:N=VAL(Z$):IFN>50ORN=0THEN5050
5100 FORX=1TON
5150 PRINT"[147][160]CHECK YOUR SPELLING!![146]"
5200 PRINT"WORD #";X;:INPUT"[157]";W$(X)
5210 IFLEN(W$(X))=0ORLEN(W$(X))>10THEN5150
5220 IFASC(W$(X))<65ORASC(W$(X))>90THEN5150
5250 NEXTX
5300 RETURN
6000 REM WISEGUY
6010 PRINT"VERY FUNNY,WISEGUY":PRINT
6015 FORT=1TO1000:NEXT
6020 FORT=1TO500:NEXT
6030 RETURN
7000 Q=0
7001 L=7900:CO=38620
7010 POKEL+Q,0:POKECO+Q,4
7020 POKEL+Q+1,61:POKECO+Q+1,4
7030 FORT=1TO50:NEXT
7040 POKEL+Q+1,62:POKECO+Q+1,4
7042 POKE36877,160:FORT=1TO10:NEXT
7045 POKE36877,0
7050 FORT=1TO50:NEXT
7060 IFQ=9THENRETURN
7070 POKEL+Q,32
7075 Q=Q+1
7080 GOTO7001
8000 Q=0
8001 L=7900:CO=38620
8010 POKEL+Q,0:POKECO+Q,4
8020 POKEL+Q+1,61:POKEL+Q+1,4
8030 FORT=1TO50:NEXT
8040 POKEL+Q+1,62:POKECO+Q+1,4
8042 POKE36877,160:FORT=1TO10:NEXT
8045 POKE36877,0
8050 FORT=1TO50:NEXT
8060 POKEL+Q,32
8070 IFQ=20THENPOKEL+Q+1,32:RETURN
8075 Q=Q+1
8080 GOTO8001
9000 END